NBC Slam Jams!/NBC Slam Jams!.iso/xtras/media_la/effector.cst/00001_Script_Effector Behavior Support

Text File | 1997-09-30 | 3KB | 97 lines

on alphaManiac s
  if s>0 then return (the type of (the member of sprite s) = #alpha)
end

on alphaManiacCheck s
  if s=0 then exit
  if alphaManiac(s) then
    return true
  else
    set line1="Warning!  Sprite" && s && "is not an Alphamania sprite."
    set line2="The behavior you added will have no effect."
    set line3="You should remove this behavior from sprite" && s & "."
    beep
    alertOK("Invalid Sprite", line1 & return & return & line2 & return)
    return false
  end if
end

on Ask m
  set alertObj = new(xtra "MUI")

  set paramList = [buttons:#YesNo,  title:"Help me out here...",  message:m,  movable:1,  icon:#Question]

  if objectP ( alertObj ) then
    set    result = Alert( alertObj, paramList )
    case result of
      1:return #Yes
      2:return #No
    end case
  end if
end

on AlertOKCancel t,m
  set alertObj = new(xtra "MUI")

  set paramList = [buttons:#OkCancel,  title:t,  message:m,  movable:1,  icon:#Warning]

  if objectP ( alertObj ) then
    set    result = Alert( alertObj, paramList )
    case result of
      1:return #OK
      2:return #Cancel
    end case
  end if
end

on AlertOK t,m
  set alertObj = new(xtra "MUI")

  set paramList = [buttons:#Ok,  title:t,  message:m,  movable:1,  icon:#Warning]

  if objectP ( alertObj ) then
    set    result = Alert( alertObj, paramList )
  end if
end

on setAlpha mode, src
  set mem=getAt(getAt(the selection of castLib "internal",1),1)
  set the drawMethod of member mem = mode
  if integerP(src) then
    set the sourceMember of member mem = member src
  end if
end

on triggerSprite s,reverseFlag
  sendSprite(s,#Trigger,reverseFlag)
end

on resetSprite s
  sendSprite(s,#Reset)
end

on interpolation i
  case i of
    #Off:return 0
    #On:return 1
    #Paused:return 2
  end case
end

on amTip
  set x= random(10)
  case x of
    1:return "Set your AlphaMania castmember to #apply mode and this behavior will affect anything under your AlphaManiac!"
    2:return "You can use the #reveal method to create cool transitions and x-ray vision effects!"
    3:return "AlphaManiacs are the most powerful sprites on the planet!!"
    4: return "Chris Perkins plays scales on AlphaManiacs and on trumpets."
    5:return "Tom Summerall rotates almost anything, anywhere."
    otherwise:
      return "Behavior programming by Media Solutions in Denver, CO. " & return & "Contact John Mathis ([e-mail]) to make your AlphaManiacs behave."
  end case
end

on EffectActive sNum, fxSym
  set fxList = GetEffectList(sprite sNum)
  return( GetPos(fxList, fxSym))
end